.DO Externa! 
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>>>>:>>>>>>>>>>>>>>>>>>>>>>>:>>>>> 
y 

> Module: Resident Misc. 



> PROCEDURE ReSeek 

PROCEDURE New_JSeek< Cylinder : WORD { ! !rC } 

> Head : BVTE { !rD > 

> Sector : BVTE { !rE } 

> > 

> PROCEDURE Load_Header< URR BufferPtr : PTR { ! !r2 } > 

> FUNCTION Load-Logical : Loqical Block : 3 BVTES { !rC:E } 

> FUNCTION ChkJChk_Byte< SourcePtr : PTR { !!rE } 

> SourceLength : BVTE { ! !r8 } 

> ) : 

> BOOLEAN 

> PROCEDURE GenJChk_Byte< SourcePtr : PTR { ! IrE } 

> SourceLength : BYTE { ! !r8 } 

> > 

> PROCEDURE ClearStatus 

> PROCEDURE LdJ_gclBlk< Offset : BVTE { !r0 } ) 

> PROCEDURE Set_£eekNeeded 



*>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 
. LSTON 
. Page 
.FIN 



ReSeek : Ld SeekType , *Rccess_G f f se t 

Decw SeekCount ; account for zero track seek 

Ld !rC,Cyl inder 

Ld !rD,Cyl inder+1 

Ld IrE .Head 

Ld ! rF, Sector 

New^Seek: Ld lr2,*.HIBVTE. Seek_Uector 

Ld !r3,*.L0HBYTE. Seek_Uector 

Call BankJCail 

Jp Bank_Ret 

.LSTOFF 

.DO Externa! 

.LSTON 

.Page 

: > > > > > > > > > > >>>>>>>>>>>>>> > > > > > > > > 

> 

> Procedure: Load-Header 

> 

> This procedure is responsible for generating C and loading 

> into the disk buffer > the header that will be used to identify 

> the correct block to operate on. 

> Inputs: 

> BufferPtr: PTR { I!r2 } 



■ > 



;> BufferPtr + 3 : PTR { ! !r2 > 

; > 

; > ft I gor i thm : 

; > 

.;> BEGIN 

;> §BufferPtr< > := Hi Cylinder 

;> §BufferPtK I ) := LoCy Under 

;> §BufferPtK 2 )/bits 7:6 := Head 

;> ?Buffer-Ptr< 2 >/bits 5:0 := Sector 

;> §BufferPtK 3 > : = lnvert< §BufferPtK > ) 

.;> §BufferPtr< 4 > := lnvert< SBufferPtK 1 > > 

•> §BufferPtr< 5 > := !nvert< §BufferPtr< 2 > ) 

; > END 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 
. LSTON 
.Page 
.FIN 

Load-Header : 

Ld 
Lde i 

Ldei 

Ld 

Swap 
Rl 
Ri 

Inc 
Or 

Lde 
I new 

Ld 
Com 
Lde 
I new 

Ld 
Com 
Lde 
IncMj 

Com 
Lde 
fnew 

Ret 

. LSTOFF 

.DO External 
. LSTON 
. Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

;> 

; > Func t i on : Load JLog i ca I 

; > 



I rO t *Cy I i nder ; I oad header : hi ey i i nder 
!r2,£!r0 

3!!r2,(?!rG ; load I o cylinder 

!r1,§!r0 ;Head 
!r1 
Irl 
Irt 

!r0 

!r1 t §!r0 ; merge in Sector 

§ !! r 2 , \ r 1 ; I oad Head /Sec tor 

! !r2 

IrO.Cyl inder ;Not< hi cyl inder ) 
!r0' 

§Mr2,!rG 
! Ir2 

!r0,Cyl inder+1 ;Not< I o cyl inder > 
IrO 

§!!r2, !r0 
I !r2 

!r? :Not< Head/Sector > 

g!!r2,!rt 
! !r2 



> This function returns the last logical block number 

> requested by the host. 

> 

> Inputs: { none } 

> 

> Outputs: 

> LogicalBIockNumber : 3 BYTES { !rC:E } 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO Internal 
. LSTON 
. Page 
.FIN 



Load_Log i ca I 



Ld !r2,*.HIBYTE. LogicalBlock 

Ld !r3,«.L0WBVTE. LogicalBlock 

Ld !M,«3 

Ld !rG,Rp 

Or !rG,*$OC 



Load_Log_Lp : 



Ldei 8!rG,2!!r2 

D j nz ! r 1 Load_Log_Lp 



Ret 



. LSTOFF 

.00 External 

.LSTON 

.Page 

;>>>>>>>>>>>>>>>>>>>>>>>> 

;> Function: ChkJChkJSyte 

;> Inputs: 

;> SourcePtr : PTR, { ?!rE > 

;> SourceLength : BVTE { !r8 > 

- > 

; > Outputs : 

; > if CheckBy tes Match 

; > Then Zero_F I ag : = True 

;> Else ZeroJFlag := False 

;> Rlgorithm: 

;> Begin 

; > Temp : = 

; > For i : = 1 To SourceLength Do 

; > Temp : = Temp + §SourcePtr 

;> SourcePtr := SourcePtr + 1 

; > Compare < Temp, §SourcePtr > 

;> End 

;> Temp = !r0 

;> Scratch Register = !r2 

; > 

;>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.00 Internal 

. LSTON 

.Page 



.FIN 



Clr IrO 

Lde lr2,§HrE 

Rdd IrO, !r2 

i new ! ! HE 

Djnz !r3,ChkBJ_p1 

Com !rG 
Lde !r1,S!!rE 

Cp IrO, Irl ;set/c I ear zero f Icjq 

Ret 

. LSTOFF 

.DO Externa! 
. LSTON 
Page 

• >>>>>>>>>>>>>>>>>>>>>>> > 
■ > 

;> Procedure: 6enJChk_Byte 

; > 

;> Inputs: 

;> SourcePtr : PTR, { !!r-E } 

;> SourceLength : BVTE { !r8 } 

; > 

;> Outputs: { none } 

; > ft ! gor i thm : 

; > Beg i n 

; > Temp := 

;> For i := 1 To SourceLength Do 

;> Temp := Temp + §SourcePtr 

;> SourcePtr := SourcePtr + 1 

;> Temp := MOK Temp > 

; > iSoureePtr : = Temp 

;> End 

; > Temp = ! rO 

;> Scratch Register = !r2 
; > 

;>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

. LSTON 

.Page 

.FIN 



ChkJChkJByte: 
ChkB-LpI: 



6en_Chk_Byte : 



Clr IrO 



Gen_ChkB_Lpl: Lde Ir2,@! !rE 

Add IrO, Ir2 

I nctu ! ! r-E 

Djnz !rS,6enJChkB-Lp1 

Com IrO 



Lde 

Ret 



§! IrE, IrO 



. LSTOFF 

.DO External 

. LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
5. 

> Procedure: CI ear Status 

> 

> This procedure clears all the bytes within the status array. 

> 

> Inputs: { none } 

> Outputs: { none } 

> fl I gor i thin : 

> 

> BEGIN 

> FOR i := 1 TO Length< Statusfirray > DO 

> StatusRrraq[ i 1 := 

> END 

> 

; > > > > > > > >>>>>>>>>>>>>>>>>>>>>> > > >>>> 
.LSTOFF 
,F!M 

.00 Internal 
. LSTON 
. Page 
.FIN 

C leer Status: 

Ld !r2,*.HIBVTE. CStatusO 

Ld !r3,*.LOI4BVTE. CStatusO 

Cir !r0 

Ld §r1,»< EndJCStatus - CStatusO > ;clear all status bytes 

Clr-Stat: Lde 8! !r2, !r0 

I new ! !r2 

Djnz !r1, Cir JS tat 

Jp Bank_Ret 

.LSTOFF 

.00 External 

. LSTON 

.Page 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: Ld_Lgc!Bik { Load Logical Block } 

> This procedure is used to extract the Log i ca I B I ockNumber 

> information from a command string < sent by the host > and 

> move it into the global variable Logical Block. 

> 

> Inputs: 

> Offset : BVTE { IrO } 

> 

> Outputs: { none > 
> 

> Global Mar iab I es Changed: 

> LogicalBlock 

> 

> Algorithm: 

> 



> BEGIN 

> FOR i := 1 TO Length* LogicalBiock > DO 

> Logical Block I i 3 := Cmndflrray . Log i ca I B I ock [ i 1 

> END 

> 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
. LSTOFF 
.FIN 

.DO internal 

. LSTON 

.Page 

.FIN 

Ld_LgclBlk: 

Ld ScrRegO, !r0 ;pass parameter- 

Push Rp ;saue context 
Srp *Wrk_jScr 

Ld !r2,*.HIBVTE. CStatus4 

Ld !r3,«.L0HBYTE. CStatus4 

Add !r3,!rG ;add offset to BlockNumber 

fldc !r2,*G 

Ld !rE>.H!BVTE. LogicalBiock 

Ld !rF,*.LOI4BVTE. LogicalBiock 

Ld !r1,*4 ;move 4 bytes 

Ld_Lgcl_Lp: Lde !rG.,§! !r2 

Lde §!!rE, !r0 

I new ! ! r2 

I new ! ! rE 

Djnz !M,Ld_Lgel_Lp 

Pop Rp ; context switch 
Jp Bank_fiet 

.LSTOFF 

.DO External 

. LSTON 

.Page 

j >>>>>> >>>>>>>>>>>>>>>>>>>>>>>>>> 

;> Procedure: Set_SeekNeeded 
J > 

;> This procedure acts in much the same fashion for the 

; > Log i ca I B I ockCache as D i skS tat . On_Track does for s i mp I e 

;> seeks, it keeps a legitimate seeks between tow requests 

;> for the same block number from returning a bogus result. 

;> 

;> Inputs: { none > 
;> 

; > Outputs : { none } 
■ > 

; > ft I gor i thm : 

;> 

;> BEGIN 

;> FOR i := 1 TO CacheLength DO 

;> CachStatl i J.SeekNeeded := True 

;> END 

; > 

• >>>>>>>>>>>>> > >>>>>>>>>>>>>>>>>> 

. LSTOFF 
.FIN 

.DO Internal 



. L3T0H 

.Page 

.FIN 



SetJSkNeeded: 



S_SeekH_Lp : 



Ld !r2,*.HIBVTE. CachStat 

Ld !r3,*.L0WBVTE. CachStat 

Ld !M,«CacheLength 

Lde !rO,SH!r2 ;get carrny va! 

Or ! rO, *CachSeek 

Lde 9!!r2., !rO 

incui !!r2 

Djnz !r1,S_Seek.N_Lp 



Jp 



Bank_Ret 



. LSTOFF 



